SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 


**F 1LE**1D**OPDRV790 

000000 PPPPPPPP DDDDDDDD RRRRRRRR VV VV aaa aa as 999999 44 
000000 PPPPPPPP DODDDDDD RRRRRRRR VV VV 77777777 999999 00 

00 00 PP PP DD DD RR RR VV VV 77 (99 99 

00 00 PP PP DD DD RR RR VV VV 7? (99 99 

00 00 PP PP DD DD RR RR VV VV 77 (99 99 68 

00 00 PP PP DD DD RR RR VV VV 77 «99 99 00 

00 00 PPPPPPPP DD DD RRRRRRRR VV VV 77 99999999 00 68 0 

00 00 PPPPPPPP DD DD RRRRRRRR VV VV 77 99999999 00 00 00 

00 00 PP DD DD RR RR VV VV 77 99 0000 0 

00 00 PP DD DD RR RR VV VV 77 99 0000 0 

00 00 PP DD DD RR RR VV VV 77 99 00 0 eeee 

00 00 PP DD DD RR RR VW VV 77 99 00 0 eee 
000000 PP DDDDDDDD RR RR VV 77 999999 000000 coos 
000000 PP DDDDDDDD RR RR VV 77 999999 000000 eee 

LL III! SSSSSSSS 

LL IIIT] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL II SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HII] SSSSSSSS 
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V04=000 § Sepa 19be ba:44:07 gYSLOA. SREOPDRV790.MAR; 1 es (1) 
-TITLE QPDRV790 = VAX/VMS 11/790 CONSOLE TERMINAL DRIVER 
- IDENT Mibe 000" “ 


RRA A RAE EAHA AEE AEE AERA AAEAAAARAAAAAAEAAAAARAETAAAAARARAAAAAEAAAAAAAAE EAE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


OFTWARE IS Cynns SHED UNDER A LICENSE AND MAY BE USED AND sorree 
N ACCORDANCE WITH THE TERMS OF SUCH bce NSE_ AND WITH THE 
ION OF THE ABOVE Sp lth ad NOTICE. THIS SOFT ARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


7 s 
* * 
:* ® 
® * 
* * 
* ® 
4 * 
* * 
:f * 
f * 
;* TRANSFERRED. . 
* * 
* 
* 4 
Le a 
oe ® 
:* * 
* 
* 
.f . 
:f * 


oOOooooooo 
SoOooooooo 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aepokat ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARA RRARAASARAESASSAS ELSE ERS E LESS REESE ESTATES ERE EE SEE EEE ECE C ES ESE EES STC oY 


FACILITY: 
VAX/VMS 1/0 SUBSYSTEM 
ABSTRACT: 


AUTHOR: Benn Schreiber, Trudy Matthews 
MODIFIED BY: 


v03-011 TCMO009 Trudy C. Matthews 4 ge: be 9 
Fix input interrupt "ose through the dispatch table. 


v03-010 TCMO008 Matthews 31-Jul-1984 
Move routine CONSKEE ALive to module MCHECK790. 


v03-009 TCM0007 Trudy C. Matthews 24-Jul-1984 
Fix some undefined syabots in TCMO006. 


v03-008 TCM0006 udy ¢ 19-Jul-1984 
Add cayenne CONSKEEP Live yy is called periodically to 
determine he VENUS console software is still functioning. 
Update the Conse xxx console function code definitions. 
Add TXDBSC xxx and RXDBSC_xxx definitions for EMM and logical 
console Lines. 


V03-007 WHM0001 ill Matthew 09-Jul-1984 
Add routines CON PUTCHARS CONSGETCHAR and CONSINIT CTY to do 
non-interrupt driven I/0 to the console terminal. 


NAMA AN 0 ODNOA NE WIN 9 OD NA MEIN $$ OOD NA NE WIN CO OD NOU EW  OWOONOUS Wn 


Sete Se Se Ge Ge Ge Se Ge Se Ge Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Se Se Ge Ge Se Se Se Ge Se 


PTT EE BBE BB BEE EWI IU nonononononononong 2 2 


SOOOCOCOCOOCOCOCOOOCOOOCOOSOCOSOSOOOOSOSOCOOOSOOOOOOOOOOOOCOoO 
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V03-006 TCMO00S ee C. Matthews 20-Jun-1984 
- first pass at handling venus environmental monitor 


v03-005 TCMO0004 Trudy C. Matthews 04-Jun-1984 
Track changes in the console interface groyocols we can not 
read or write rae unless the ‘READY’ bit is set; also, the 
“write enable’ bit position has changed. Add routine 
CONSRELEASECTY. 


v03-004 TCM0003 Trudy C. Matthews 09-Apr-1994 
Add dummy gntry point for CONSRELEASECTY. The full routine 
will be added later. 


v03-003 TCMO0002 Trudy C, Matthews , , 5-Dec-1983 
Add support for the ‘write enable bit’ for Line enable mask 
* TXCS in routines CONSSENDCONSCMD and CONSOWNCTY. 
Modify interface to CONSOWNCTY: it now returns the values 
that should be restored to TXCS and RXCS when the caller 
is done with ‘‘exclusive’’ use of the console terminal. 


V03-002 MIRO084 Michael 1. Rosenblum 03-Aug-1983 
Change references to TT_CARRIER and TT_DTR to 
4 F Remove STOP2 entry point and all references to 


v03-001 TCM0001 Trudy C. Matthews 25-Mar-1983 
Modify CONSOWNCTY to work with 11/790 console interface. 


ws 
DNASE WN 0 OD NOUS WN OOODNOUES Ut O00 


809090909 09 09 0909 SI NI NINN NINN IO A AAA AAAAO 
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Sooooooooooo 
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: ; SYMBOL DEFINITIONS 
9 - 
94 SCONDEF ;CONSOLE DEFINITIONS 
95 SCRBDEF [DEFINE CRB 
36 SOCDEF ;DEFINE DEVICE CLASSES 
9 SDDBDEF [DEFINE DDB 
98 SDEVDEF ;DEFINE DEVICE CHARACTERISTICS 
0 99 SDPTDEF SDRIVER PROLOG 
100 SDYNDEF SSTRUCTURE TYPE CODE DEFINITIONS 
101 SEMBDEF <HD> ;DEFINE ERRORLOG ENTRY FORMATS 
1 : SIDBDEF [DEFINE IDB 
0 1 SIPLDEF :DEFINE IPL LEVELS 
0 104 SIRPDEF [DEFINE IRP OFFSETS 
09 105 SPROEF ZDEFINE PROCESSOR REGISTERS 
106 SPR7S0DEF [DEFINE 11/790 PROCESSOR REGISTERS 
900 107 STTDEF ;DEFINE TERMINAL CHARACTERISTICS 
999 108 SUCBDEF [DEFINE UCB 
0000 109 STTYDEFS :TTY UCB extension(must FOLLOW SUCBDEF) 
9464 110 STTYMODEM ;TTY modem definitions 
000 = 117 STTYMACS sTTY macro definitions 
9009 118 SVECDEF [DEFINE CRB V 
00 1 SWCBDEF :Define 
000 114; 
999 115 ; TXCS REGISTER DEFINITIONS 
999 116 : 
000 11 SDEFINI TXCS 
0000 118 
0000 119 SDEF TXS .BLKL 1 sTXCS REGISTER 
0004 120 
0004 i 1 _VIELD IX$ .0,<- iDEFINE FIELDS TXS_M_XXX 
9004 1 § <f£,.M>,- S INTERRUPT ENABLE BIT 
004 124 <RDY, ,M>,- :READY BIT 
0004 125 <1D 4, > [1D FIELD 
0004 126 :MBZ BITS 
004 127 <ORTENA, .M>.- TENABLE WRITE TO Tx¢s MASK FIELD 
004 ; <TEM,B. A> = ; TRANSMITTER ENABLE MASK 
00000000 04 130 .=TXS 
000 131 “VIELD Ixs 0. <- ; TRANSMITTER ENABLE MASK BITS 
000 1 : :SKIP TO TRANSMIT ENABLE MASK FIELD 
1 <EONSTERN, .H>, ~ :CONSOLE TERMINAL 
134 <REMPORT ,.—>,- :REMOTE SERVICES PORT 
6 135 <EMM, ,M>,- SENVIRONMENTAL MONITOR 
é <LOGEGNS > ,- TLOGICAL CONSOLE 
1 : SDEFEND TXCS 
12 
18} + DEFINE CONSTANTS FOR TXDB DATA: 
138 | t THE FOLLOWING VALUES CAN BE SENT ON THE EMM LINE. 
90000000 145 tx XDB$C_EMM_STATUS = 0 ZREQUEST FOR ENA STATUS 
0 146 TXDBSC“EMM“ENV = 1 SREQUEST FOR SYSTEM ENVIRONMENT INFO 


aang 
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80000011 


on 
_ 


00000000 


on—oon oO 
OOOOOOOOOOSOOOOOCOOSOOOOCOSOOOOOOOoOoOSoS 


SOSSSCSOSCOF FFF FFFOOCOSSOSOSSOSSSOSOOF FSFE EEF EOOO 


COOoOoCCOCCOOCoOoOOCOoOoOoOooooooooooooo 


B88 8 9h ho SS SS SS SSS SS SSSSSSSSSssssssssssssssssssssss 
SOOoOoooooooooooo 


80000011 


TXDBSC_EMM_MARGIN = 1 
TXDBSC™ TEMM_CANCEL = 1 


txpBsc _LOG_EXWARM = “x1 
TXDB$C"LOG-EXCOLD = “x1 


TXDBSC"LOG-EXUCODE = “Xx 
TXDBS$C"LOG-SNDDIAG = “y 
TXDBSC"LOG-REQERL = *X3 
TXDBSC"LOG-INVSNP1 = *X31 
TXDBSC"LOG-INVSNP2 = *X32 
TXDBSCLOG-CANCEL = *X 


; RXCS REGISTER DEFINITIONS 
, SDEFINI RXCS 


SDEF —-RXS BLK 
-VIELD XS 0,<- 


“n° >.< 
<DONE, .M>, - 


<bTR8,0>,~ 


=RXS 
“VIELD RXS,0,<- 
< >, 
<CONSTERM, ,M>,- 
<REMPORT, >, bd 
<EMM 
<LOGEENS #, “ 
SDEFEND RXCS 
: CONSOLE RXDB REGISTER 
- SDEFINI RXDB 
SDEF -BLKL 
RVTELD RXD,0,<= 
<DATA, 8>.- 
<1D .43 _° 
<EARRIER .8>.- 
SDEFEND RXDB 


DOOOOO OOOO WO OOO 0009 09 69 09 09 09 09 09 SI NIN NNN NNN DP PPA AAA AA MITTIN 
BO ODNANE WN 9 ODNOA NE WIN  O OD NOA UE WIN | 0 OD NOAM EW OOONOUE UW" OOO 


PORIARID Dt 2 9 9 ss 2 ss a 2 ss 4 2 > 5 > 9 ss as 2 2 5 5 2 4 2 > 4 4» 2 


Axvasc _LOG_WRMFLG = 1 
RXDBSC“LOG"CLDFLG = 1 


SEP=198¢ 04:11:07 ES¥SLOA.SRESOPDRV790.MaR:1 a9 


COMMAND TO SET MARGIN REGULATORS 
;CANCEL EMM REQUESTS ON INTERFACE 


THE FOLLOWING VALUES CAN BE SENT ON THE LOGICAL CONSOLE LINE. 


; EXAMINE WARMSTART FLAG 

; EXAMINE COLDSTART F 

; EXAMINE MICROCODE VERSION LEVEL 

; SEND DIA Ic ¢ RING 

; REQUEST ERRORLOG DATA 

; INVALIDATE ERRORLOG rrr ried 1 

; INVALIDATE ERRORLOG SNA 

; CANCEL CURRENT AND QuEUED” REQUESTS 


sRXCS REGISTER 


:MBZ BITS 
FM ey ENABLE BIT 
SDON \E BIT 


:MBZ BITS 
;LOGICAL DTR BITS 


sLOGICAL DTR BITS 

SKIP TO 3 tt DTR FIELD 
;CONSOLE TERMINA 

REMOTE SERVICES. PORT 
:ENVIRONMENTAL MONITOR 
LOGICAL CONSOLE 


;RXDB RECEIVER DATA REGISTER 
8 BI Bits or DATA 


;SK ip pk BITS 0 F MBZ 
LOGICAL CARRIER 


3 per ine DATA VALUES THAT CAN BE RECIEVED ON THE EMM AND LOGICAL CONSOLE 


: THE FOLLOWING RXDB VALUES MAY BE RECEIVED ON THE LOGICAL CONSOLE LINE: 


RETURNING VALUE FOR WARMSTART FLAG 
;RETURNING VALUE FOR COLDSTART FLAG 


4 
(2) 


7 
OPDRV790 = VAX/VMS 11/790 CONSOLE TERMINAL” DRIVER 16-SEP=1 AX/VMS Macro V04- Page OP! 
VOL. 000 Bree ei obs assis? LeesLOA.saesoPbev7oo.mar:1 29° (3) vO 
4 RXDBSC_LOG_UCODE = 1 ;RETURNING MICROCODE VERS! 
5 RXDBSC"LOG-CMDCMP = ; ;CONSOL LE COMMAND STRING COMPLETE 
$ RXDB$SC"LOG_CMDERR = 130 CONSOLE COMMAND STRING ERR 
0000 RXDB$C_LOG_SNAP = 48 sSNAPFILE STATUS RETURNED 
000004 0 8 RXDBSC"LOG-REBOOT = 64 ‘CONSOLE REBOOT SUCCESSFUL 


OPDRV7 = VAX/VMS 11/790 CONSOLE RMINAL Boniver 16-SEP-1984 AX/VMS Macro V Pp OPI 
vt CONSOLE RECEIVE DISPATCH VECTO Breen 8Re BL FFG) FENCYRS Bac te VOe Oe mans1 2% cf) vo! 
«SBTTL CONSOLE RECEIVE DISPATCH VECTOR 

0000 .PSECT SYSLOA,LONG 
1 : 
is; THE INTERRUPT ROUTINE ADDRESSES FOR EACH OF THE DEVICES THAT SHARE THE 
18 RXCS/RXDB REGISTER ARE LOADED INTO THIS TABLE BY THE UNIT INITIALIZATION 
17 ; ROUTINE FOR EA CONSINITIAL SETS THE CELLS FOR THE CONSOLE 
0 18 FEAR INAL, THE NVIRONMENTAL MONITOR, THE UNUSED VECTORS, AND THE CARRIER 
19 CHANGE INTERRUPT TYPE. 
CONSINPDISTAB: 
0000000 LONG 71D 0 = CONSOLE TERMINAL 
0 9000 004 LONG [1D 1 = REMOTE SERVICE PORT 
8 4 “LONG 11D 2 - ENVIRONMENTAL MONITOR 
00 9 00 5 LONG [1D 3 = LOGICAL CONSOLE 
90000000 ° 00000000° 0000000 ' "0010 226 “LONG 011) tIDS 4-14 = UNUSED, RESERVED TO DIGITAL 
10010000 3090000" 90900000" 90900000" 080 
00000000 003C 227 .LONG 0 :ID 15 = CARRIER CHANGE NOTIFICATION 


= VAX/VMS 


11 Page 
CONSOLE CONT 
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«SRC }OPD bRV790. MAR; 1 (4) 


C 
O,GOMSOLE,TERNINAL ORIVER 1G-SER-19B6 01:02:49, yan ms 
: -SBTTL CONSOLE CONTROLLER INITIALIZATION 
CONSINITIAL = INITIALIZE CONSOLE CONTROLLER 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS USED AT SYSTEM STARTUP TO INITIALIZE THE CONSOLE CONTROLLER. 


Soooooo 
oovono 
wee 


oooo 


30$: 
CON_RETURN: 
RSB 


/79 
ROL 
4 
4 ; 
4 ; 
4 ; 
4 ; 
4 4; 
4 i; 
4 § 3 
4 : INPUTS: 
4 S : 
04 3 R5 = 1D 
04 40 ; RG = DD 
4 41 ; RB = CR 
04 42 ; 
04 43 ; OUTPUTS: 
04 44 ; 
04 45 ; 
Be rg fee 
4 47 CONSINITIAL:: 
10 A8& dS 04 48 TSTL 
50 12 004 49 BNEQ 
Bee 50 
50 FFB7 gF 9E 045 51 MOVAB 
10 a8 0 00 O04A 26 OVL 
60 O1AA'CF 9 ie} 5 MOVAB 
80 80 OD 05 54 OVL 
80 peat ee 9E 0056 55 MOVAB 
80 O3OC'CF 9 058 56 MOVAB 
51 OB OD 64 57 OVL 
80 nar 9 06 28 10$: OVA 
F 1 F 068 5 SOBGTR 
60 O37B'CF 9E 0068 60 MOVAB 
50 21 $078 83 MFPR 
50 0 FO 8 a $098 8 ASHL 
1D AB =650 «6990 «60078 ) = 264 MOVB 
OE AS 94 Boge 65 CLRB 
0¢ 90 O07F 66 MOVB 
1E A8 081 67 
50 _ _1€ ‘ 9A 0083 68 MOVZBL 
ae . Ree 7 7 69 ASHL 
50 00000040 He C 70 BISL2 
20 0 71 MTPR 
if 
7 
74 


ALL REGISTERS ARE PRESERVED, EXCEPT RO, R1. 


+ ty eects 


W*CONSINPDISTAB,RO 
RO CRBSL gxsTRUC (RB) 
ites ONSOLINP, (RO) 


R 
W*INT *ENMINP, (RO)+ 
W*INT-LOGINP, (RO) + 


#11,R 
wrINt IGNORE INP, (RO) + 
W*INT_CARCHANGE, (RO) 
#PRS_RXDB 
#<-RRD_V tRearer> RO,RO 
RO cnESE DZ CARRIER (RB) 
1DB$B_TT~ENABLE(R5) 
#<RX “1 
CRB$B_DZ_DTR(RBY 
RBSB~D RB) ,RO 
0,RO0 


LEAR 
ar *LosconSsee-xs 


Hiytl bee a 44 site vai INTERFACE 
SHAVE WE PASSED THIS WAY BEFORE? 
;BRANCH IF *30 


;POINT TO THE CONSOLE DISPATCH TABLE 
SET POINTER IN CRB 

; STORE ce A tapas oa ROUTINE 

;SAME ROUTINE F wet kia SERVICES PORT 
;STORE EMM INTERR 


;STORE LOGICAL CONSOLE. INTERRUPT RTN 
:SET NUMBER OF VECTORS TO INITIALIZE 
;STORE INGORE INTERRUPT ROUTINE 


D0 ALL 
;STORE CARRIER CHANGE INTERRUPT ADDR 


;READ_ CURRENT RECEIVER STATUS 
POSITION CARRIER BYTE TO LOW BYTE 
AVE a HL STATUS 

aw ENABLE MASK 


V DIR 
IRITIAL LOGICAL DTR 
iGET LOGICAL DTR 

POSITION IN REGISTER 

;SET_ INTERRUPT ENABLE 
;ENABLE THE LINES 


29° 


o 
oo 
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r>rrroooowowoowowvowowowoooowowono 


SS 
HDHD BW NINOS OWT TF QVM MM COW OL FM OD AOAAAAAAAOOAAAAAOAAAS $ a 


So 
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o 
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~SBTTL CONSOLE UNIT INITIALIZATION 


++ 
; CONSINITLINE = INITIALIZE CONSOLE UNIT 


; FUNCTIONAL DESCRIPTION: 


; INPUTS: 


; OUTPUTS: 


REGISTERS R4,R5 PRESERVED 


NSINITLINE® 


MOVZBL 
TSTW 


BEQL 
MOVZBL 
MOVL 
PUSHL 
JSB 


#TTSV_MODEM,UCBSL_DEVDEPEND(R5S 
-DECHAR(RS5 

sADDRE 
Ht CLASS waeke VECTOR TABLE 


#TT$v~ Be DEM, UCBSL_TT 
G“TT DPT,R1 

aR VECTOR(RT), RO 
R1,UCBSL_TT_CLASS(R5) 


‘8 SET 
CLASS_GETNXT(R1) ,UCBSL_TT_GETNXT( 


; THIS ROUTINE IS USED AT SYSTEM STARTUP TO INITIALIZE THE CONSOLE UNITS. 


, $ ZENSURE DEVICE IS MODEM 
S§ OF CLASS DPT 

LOCATE BASE A 

TERMINAL cage DRIVER VECTOR 


CLASS =PUTHKT SRI) UCBSL— TT ma IG 2. 


UCBSL_DDB(R5),R 


CLASS-DDT(R1) -DDB$L_DDT 
CLASS~DDT(R1) -UCBSL DDT ( 


G*OPSDP 
DPTS$W_ OEE ROR CR 0),R1 
R1,RO;UCBSL_TT_PORT(RS) 


#UCBSM NITCRSS TRO STS(R5) 


ers ON 


Urabe $y uel rranltaitens) 33 


UCBS$L_TT_CLASS(R5) ,RO 
@CLASS_SETUP_UCB(RO) 


#<TTISM 0s CARRIER! TTS o& DSR! 
utBSB -11bs S_RCVCRS) 


#MODEMSC_INIT-R 
CBs REFC(RSS 


#MODEMSC_SHUTDWN_R 
UCBSL_TT “RNs Stns) RO 


fi 
@CLASS_DS_TRAN(RO) 


T 
rhe 
R5) 


B ADDRESS 
SET DDT ADDRESS IN UCB 
od ADDRESS OF CONSOLE DPT 


3 OF FSET TO CONSOLE PORT VECTOR DISPATCH TABL 


SET ADDRESS IN UCB 


;SET ONLINE 

ILD UNIT'S BIT MASK 
SAVE IT_IN UCB 
REFCOUNT 0? 

:1F NEQ THEN NO SET UP 


arya OF ry VECTOR TABLE 
ALIZE THE UCB FOR CONSOLE TERM. 


vE eras 
STATUS 

RIER BYTE 

. THIS LINE? 


_CTS!TTSM_DS_RING>,- 
AND ais SUALWAYS SET 
3° 


L 
E 
0 
A 
RAN 


NGUP 
VECTOR TABLE 
OVE 5 


N 
“TRANSITION 


a ey 


OPDRV790 = VAX/VMS 11/790 CONSOLE TERMINAL E DRIVER 16=SEP=1984 01:02:49 VAX/VMS Macro V04- Page 
04-000 CONSOLE UNIT INITIALIZATION ose a Cs Ss 15 es | 
; BEDO 128 3 POPL R2 Est ORE 
08 64 AS E1 01 4 40$: BBC #UCBSV ROWER UCBSy. ST $( ini) 0 i: ve DETECT A POWERFAIL? 
0 0114 ¢5 DO 01 5 MOVL  UCBSL_TT_CLASS(R5)-RO ;YES, GET C VECTOR TABLE ADDRESS 
2080 1 : sos JMP thee Pou ERFAIL (ROD SAND’ GO to. tne s POUERFAIL CODE 
a 8 CONSSET_LINE: 
1 CONSSET MODEM 
01 40 CONSNULC: : 
01 8 41 CONSINIT_CTY: 
05 01 42 RSB 


F 8 
sat MASE TPR SOSRbEs EDM POE NESE TREY SLH:EP YARIRS NEBL ADE an, POP 1 


a- 


me .SBTTL CONSDISCONNECT DISCONNECT LINE 
: CONSDISCONNECT = SHUT OFF UNIT 
: FUNCTIONAL DESCRIPTION: 


/VMS 790 

ISCONNECT 
139 4 
1 3 rf 
1 i$ 
139 4 
139 ‘3 
: 4 2 3 THIS ROUTINE IS USED WHEN FOR SOME REASON THE UNIT MUST BE DISCONNECTED 
139 5 : INPUTS: 
139 53; 
139 54; RS = UCB ADDRESS 
139 2? ; 
139 § 3 OUTPUTS: 

0139 of § 

0139 58 ; R3,R4 ARE USED 

0139 59 :-- 

0139 60 

0139 61 CONSDISCONNECT:: 

07 BB 0139 66 PUSHR #*M<RO,R1,R2> 
51 01 dO 0138 36 MOVL § #MODEMS$C_SHUTDWN_R1 7SET MODEM SHUTDOWN 
50 0114 ¢5 00 biz 64 MOVL UCBSL_TT CLASS(R5),RO SACCESS CLASS $44 OR TABLE 
Oc BO 16 014 65 JSB acLass -§. TRAN(RO) ; INVOKE MODEM TRANSITION ROUTINE 
07 BA Bice 66 SM #*M<RO,R1,R2> S RESTORE REGISTERS 


4 
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+4 -SBTTL OUTPUT MODEM CONTROL 
; CONSDS_SET = SET OUTPUT MODEM SIGNALS 
¢ FUNCTIONAL DESCRIPTION: 
; ; THIS ROUTINE OUTPUTS THE OUTPUT MODEM SIGNALS FOR THE SPECIFIED UNIT 
; INPUTS: 


R2 = LOW BYTE = SIGNALS TO ACTI 
HIGH BYTE = SIGNALS TO DEA 


RS = UCB ADDRESS 
; OUTPUTS: 

RO-R3 ARE USED. 
NSDS_SET:: 

BISB 


v04- Page 11 oP 
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VATE 
CTIVATE 


= 


Ok a a hh oh 
Ff FPAUMMOWO WWM OOOOOWOOOOOOOOOOOOOOOO OW 


Soooooccoooooooooooooooooooooooeooeo ol ™ 


0125 ¢5S $2 88 SB2R2 UCBSB, TT_DS_TX(R5) | ;SET NEW OUTPUT SIGNALS 
52 F8 i SHL -6 SACCESS SIGNALS TO RESET 
01 cS ‘ 8A BICB2 a ichie. TT_DS_TX(R5) :RESET THEM 
3 "24 a5 00 OVL Regge CRBC(RS) RS [GET CRB ADDRESS 
51 0125 ¢5 01 01 cr EXTZV #TT$V~ “5S DTR,#1,UCB$B_TT.DS_TX(RS),R1 ;GET CURRENT DTR FOR LINE 
1 51 3 AS 78 SHL_  UCBSWTUNTT(R5) ,R1,R1 “SHIFT TO RELATIVE LINE POSITION 
1—E AB 00106 cS BA BICB2 UCBS$W-TT_UNITBIT(R5),CRB$B_DZ_DTR(R3) ;RESET CURRENT DTR FOR LINE 
16 AS) 51s 8B ISB2 R11, CRBSB~DZ_DTR(R3) 7SET IT IF NEED 
50 16 A3. 9A MOVZBL CRB$B_DZ~DTR(R3) ,RO [GET NEW DTR BITS 
so 50 10 ? ASHL_ - #RXS__DTR,RO,RO ‘SHIFT INTO POSITION 
50 00000040 BF C BISL2 #RXS"M7IE,RO 'SET INTERRUPT ENABLE ALWAYS 
50 DA TPR RO, #PRS_RXCS :SET NEW DTR SIGNALS 


ENVIRONMENTAL MONITOR: 


INTERRUPT CAN EITHER BE A oe FOR TEMPERATURE 
OR BLOWER, OR A PERIODIC SAMPLING. 


LOGICAL CONSOLE: 


R NOTIFICATION, THAT T THE CONSOLE WAS REBOOTED 
LY NO OTHER fute DRIVER SUPPORT FOR THE LOGICAL 


OPDRV790 = VAX/VMS 11/790 CONSOLE TERMIN a "oRIVER IgoSEP-1984 01:02:49 YAX/VMS Mac 
04-000 CONSOLE RECEIVER INTERRUPT DISPATCHER SaSEp=19R6 busttsO? FeteVeR. cee iophon7o.marn:1 29° 12, 
LSBTTL CONSOLE RECEIVER INTERRUPT DISPATCHER 
! CONSINTINP = CONSOLE INTERRUPT ON INPUT READY 
FUNCTIONAL DESCRIPTION: 
1 ; THIS ROUTINE 1S ENTERED AS_A RESULT OF A RECEIVER INTERRUPT ON THE 
: 10; CONSOLE INTERFACE. THE INTERRUPT CAN BE GENERATED BY THE CONSOLE 
1 1) | TERMINAL, REROTE SERVICES PORT, ENVIRONMENTAL MONITOR, OR TH 
1g ; 11/790 LOGICAL CONSOLE. 
: 14 : CONSOLE TERMINAL: 
: 18 : REMOTE SERVICES PORT: 
1 i ALL RECEIVED DATA CHARACTERS ARE CONSIDERED 
; 1 UNSOLICITED AND RESULT IN AN ENTRY INTO THE 
i 1 TERMINAL. DRIVER COMMON CHARACTER BUFFERING 
: ROUTINE “@UCBSL_TT_PUTNXT(RS)"". 
| 
i 
1 


INPUTS: 
RO,R1,R2,R3,R4,R5 ARE SAVED ON THE INTERRUPT STACK. 
OO(SP) = ADDRESS OF THE IDB 

OUTPUTS: 
THE SAVED REGISTERS ARE RESTORED BEFORE REI. 
~ENABLE LOCAL BLOCK 


CONSINTINP: : 
MFPR #PRS_RXDB,RS sMOVE DATA FROM INTERFACE 


: GET THE ASSOCIATED UCB 


PUPV IU IU IVI IUSUSUSUSUS USS VSS TUSSI SITIOS SO 


PPR PWN anononononononornonony 


DONA NE WIN 0 OOO NIA MEW HO OO NAME WWI © OD NAME WN O OD NOAUE UP OOONOUSW MoO 


Fe oe oe ot ot ot ot ee MMU UMUUUUUAARMAAMAAARMMAAUAUMAAUAMAAAAAttet tees 


wowowowowovono 
@COocouwuu 


54 9E 5 MOVL a(SP)+, R4 :GET IDB ADDRESS 
52 53 F8 oF A 5 ASHL aa RS :GET LINE NUMBER 
52. FFFO BF 5 BICW ey BIS R2 F 
3 : SEE IF A UCB IS ASSOCIATED WITH THE LINE. CURRENTLY, THE LOCAL CONSOLE 
: UCB IS ALWAYS PRESENT, AND SYSGEN SUPPORTS ADDING A UCB FOR THE R 
; CONSOLE, ENVIRONMENTAL MONITOR (EMM), AND LOGICAL CONSOLE LINES. HOWEVER, 
: THERE 1§ CURRE THY NO USER-REQUESTED TRANSFER SUPPORT FOR THE EMM OR 
> LOGICAL CONSOLE PDRV UT WE MUST DISPATCH THE AND L 
59 : CONSOLE TNIERRUPTS TO ROUTINES THAT CHECK FOR CERTAIN UNSOLICITED MESSAGES 


1 8 
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v04-000 CONSOLE RECEIVER INTERRUPT DISPATCHER -SEP-1984 8 98:89 STS OA. Ste JOPURV7OO.MAR: 1 vo 
1 460 ; SUCH AS ENVIRONMENTAL ALERT CONDITIONS AND "CONSOLE REBOOT SUCCESSFUL" 
‘ ; MESSAGES. 
52 OF B83 01 4 BITW #*XE,R2 s1S ITA DEVICE INTERRUPT? 
198 464 ; (IDS 0-1 MAY HAVE A UCB ASSOCIATED) 
07 1 1 469 BNEQ 7$ SIF NEQ NO. SKIP UCB TEST 
55 18 AG D0 O19A 4 : 5$ MOVL DBSL_UCBLST(R4)(R2],R5 :GET THE UCB ADDRESS 
1 1 19F 46 BEQL [NO UCB = DISMISS INTERRUPT 
50 FESA CF4 Dg 1A} 468 7$: MOVAL W*CONSINPDISTABCR2],RO :GET ADDRESS TO VECTOR TO 
0680 (1 1a 469 JMP aro) :DISPATCH TO PROCESS INTERRUPT 
18 ore CONSOLE TERMINAL INTERRUPT 
1AA 473 INT_CONSOLINP: 
53 53) «(9A «(O1AA O47 MOVZBL R3,R3 :ZERO TOP 3 BYTES 
0110 05 1 1AD 475 JSB auCBSL_TT_PUTNXT(RS) SBUFFER THE CHARACTER 
03 1 18} 476 BEQL  30$ tIF EQL THEN NO CHARACTER TO OUTPUT 
01 30 18347 208: BSBW  CONSSTARTIO SOUTPUT THE CHARACTER 
249 «31 186 478 30$:  BRW DISMIS 60 
0189 479 
0189 480 .DISABLE LOCAL_BLOCK 


OPDRV790 ad 
v04-000 EN 
45 54 53 59 53 25 07 07 07 gn A 0D 
65 6D oF gf if: 69 76 3 45 20 2C 4D 
6 20 74 72 65 6C 41 2 gf 61 74 33 
4 6€ $3 6D 6E 6F 72 69 76 3 45 ¢ 
68 20 ¢ 6F 74 69 6E 6F 4D $¢ 1 
20 64 65 74 63 65 74 65 64 20 75 61 
D 
6F 63 $8 74 72 65 6C 61 0 oF 61 OA 
6C 50 20 29 33 oF 6F 69 74 § 64 of 
74 20 6B 63 65 6 83 0 65 73 61 6 
67 6F 6C 20 72 6F 72 72 65 20 65 3 
on op 
6D 65 74 73 79 73 $8 6C 61 74 6F 54 
64 74 75 68 73 20 ¢ $2 77 6F 70 20 
20 67 6E 69 64 6E 65 70 20 6E 77 OF 
6E 6F 69 74 69 64 GE 6F 6 20 66 69 
72 72 6F 63 20 74 6F 6E 20 69 ee 
OA OD 2E 64 65 74 63 6 
0044 
007C 
0000 
00 


o~ 
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SOOO OCOOOOSOoOoOoO 
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4 : : .SBTTL ENVIRONMENTAL MONITOR INPUT INTERRUPT 
4 4 : FUNCTIONAL DESCRIPTION: 
4 6 : THE CONSOLE INTERRUPTS ON THIS LINE TO WARN OF ENVIRONMENTAL CONDITIONS 
487 ; SUCH AS TEMPERATURE OR VOLTAGE OUT OF ACCEPTABLE RANGES. LOG THE 
4 8 + WARNING AND SEND” A MESSAGE TO THE CONSOLE TERMINAL. 
490 : INPUTS: 
491 : R3 = CONTENTS OF PR$_RXDB REGISTER 
o38 | 
499 : LOCAL DATA USED FOR EMM ALERT MESSAGES. 
499 Emm _MESSAGE : 
498 eASCII <13><10><10><7><7><7>- 


rs NERYSTER. Environmental Alert - Environmental Monitor has detected \- 
501 \an alert condition. Please check the error log.\- 


308 <13><10> 

he SHUTDOUN NE SSACE : 

506 \Total system power shutdown pending if condition is not corrected. \<13><10> 
; 


o8 SHUTDOWN_ — 

EMM_ nsGLEN: 

EMM Burin: 

EMM_ IGNORECNT: 
-BYTE 


7 
} 


eS 
ro] 
=] 


SHUTDOWN_MSGLEN = SHUTDOWN_MESSAGE 


ORD $SHUTDOWN_MESSAGE - EMM_ MESSAGE 
0 ; LENGTH OF ALERT MESSAGES IS 2 BYTES 


0 ; HOW MANY BYTES TO IGNORE 


; EMM FLAGS BYTE AND THE FLAG BIT DEFINITIONS 


; TO HELP KEEP TRACK OF WHERE WE ARE IN 
; THE PROTOCOL 


1 
1 
1 
1 
1 
1 
1 
1 
\ 

é 

Te . © 
emt IN wibtiies $ = 0 
EMM v TGNOREINP = ') 
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/79 
LM 
00000003 5 EMM_V_BYTECOUNT = 3 
3 ; DEFINE FORMAT OF FIRST BYTE OF EMM ALERT MESSAGE: 
1 § : <07> = WHEN SET, THIS IS AN EMM ALERT CONDITION, AS OPPOSED TO 
1 0 ; DATA RETURNED IN RESPONSE TO A REQUEST 
1 ; <06> = WHEN SET, THIS IS AN AUTOMATIC SHUTDOWN CONDITION. IF TH 
1 7 ; CONDITION IS NOT CLEARED IN A SMALL NUMBER OF MINUTES (1-2), 
1 : THE CPU WILL BE POWERED DOWN. 
1 4: 05> - RESERVED FOR FUTURE USE. NOT GUARANTEED TO BE ZERO. 
F. <04:00> = IDENTIFIES WHICH ALERT CONDITION IS BEING SIGNALLED 
90000007 1 5 EMM_V_ALERT = 7 
00000 1 8 EMM-V-ASD = 6 
0000000 1 EMM-V~CONDITION = Q 
0000000 40 EMM~S~CONDITION = 
0 4g : DISPATCH HERE FOR INPUT INTERRUPT FROM EMM 
0 eI 44 INT_EMMINP: 
6D FRB AF 02 €0 i 49 vEMM v 1GNOREINP, - ; BRANCH IF WE ARE IGNORING THIS 
8 3 23 EMM” IGNORE_DATA ‘ 
16 FO AF 00 €2 0 86 48 BBSS #EMA IN PROGRESS, - F BRANCH IF THIS Is NOT THE FIRST BYTE 
0 8B $30 EMM~LAST_BYTE ; 
0 88 33 : HANDLE THE FIRST BYTE OF AN ENVIRONMENTAL MONITOR ALERT MESSAGE 
0388 54 EMM_FIRST_BYTE: 
5853 07 €1 8 33 BBC HENNY ALERT .R3,~ : DON'T HANDLE RESPONSES TO EMM REQUESTS 
EB AF B4 0 SF aa CLRW  EMMTBUFFER : ZERO THE BUFFER 
0553 06 €1 32 58 BBC #EMA_V_ASD,R3,10$ ; BRANCH IF NOT AUTOMATIC SHUTDOWN 
01 +€2 6 96 329 BBSS § #EMM_V_SHUTDOWN,- : FLAG AN AUTOMATIC SHUTDOWN SO IT 
00 £6 AF 0298 561 EMM FLAGS, 10$ : CAN BE REPORTED TO THE CONSOLE TERM 
DE AF 53 90 0 98 368 10$:  MOVB R3,EMM_BUFFER ; BUFFER THIS BYTE OF DATA 
43011 0 a 63 BRB DISMIS—EMM + DISMISS THIS INTERRUPT 
Al ge : HANDLE LAST BYTE OF AN EMM MESSAGE HERE. WRITE AN ERRORLOG ENTRY AND 
a 66 t BROADCAST A WARNING TO THE CONSOLE TERMINAL. 
Al 8 EMM_LAST_BYTE: 
D9 AF «653.0690 «(O2A1 MOVE R3,EMM_BUFFER+1 ; PUT THE DATA IN 2ND BYTE OF THE BUFFER 
51 12 pO O2A5 0 MOVL #ERBSC HD _LENGTH#2,R1  : SIZE OF ERRORLOG BUFFER TO ALLOCATE 
00000090 GF 16 02A8 571 JSB G*ERLSALLOCEMB : ALLOCATE ERRORLOG BUFFER 
OF 50 €9 O2AE ce BLBC RO, BROADCAST : BRANCH IF NO BUFFER AVAILABLE 
04 a2 OF BO O2B1 57 MOVW § #EMBSC_EMM,EMBSW_HD_ENTRY (Re) 
B 7% - SET THE ERRORLOG TYPE 
10 A2 CS AF BO 028 75 MOVW EMM_BUFFER,EMBSC_HD_LENGTH(R2) 
BA id: ; MOVE THE DATA INTO THE ERRORLOG BUFFER 
00000000'GF 16 BA u ae G*ERLSRELEASEMB : RELEASE THE ERRORLOG DATA 
51 68 AF 3¢ ‘8 8 MOVZWL EMM_MSGLEN,R1 ; LENGTH OF THE MESSAGE 
04 BB AF O01 CE C4 80 BBCC = #EMA_V SHUTDOWN, ° : BRANCH IF THIS IS NOT AN AUTOMATIC 
c9 1 EMM_FLAGS,10$ ; SHUTDOWN CONDITION 
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v04=000 ENVIRONMENTAL MONTS OR thpur INTERR oat g- -SEP- =}382 8h 95:63 A YSLOR. SAE IOPDRU790.MAR: 1 . 8) 
51 AD AF AO 02C9 3 ADDW § SHUTDOWN_MSGLEN,R1 ; ADD SHUTDOWN MESSAGE TO BROADCAST 
52 FEES CF 3E ¢ 10$ MOVAB EMM_MESSAGE,R + ADDRESS OF MESSAGE 
55 9000 "GF i D 4 MOVAB G*OPA + SEND IT TO THE CONSOLE TERMINAL 
0 ‘ce D 5 JSB O- GOCSBROABCAST : BROADCAST THE MESSAGE 
DF : EMM_ALERT_DONE: 
00 €5 OoDF BBCC #EMM_IN_PROGRESS,- : FINISHED WITH THIS EMM MESSAGE 
00 9D AF E1 R EMM_FLAGS ,DISMIS. EMM 
E4 9 DISMIS_EMM: 
0118 «(31 E4 20 BRW DISMIS 
£7 3 : WE GET HERE ONLY IF WE'RE FAIRLY MIXED UP: WE DON'T SUPPORT REQUESTING DATA 
E? 993 ; FROM THE EMM BUT THE EMM LINE IS GIVING US A RESPONSE TO A DATA REQUEST. 
a4 34 ; READ THE BYTECOUNT AND IGNORE THAT MANY BYTES OF DATA FROM THE EMM LINE. 
0 £7 %6 émm_RESPONSE : 
00 95 AF 02 €2 E? 397 BBSS EWM V V IGNOREINP, : SIGNAL WE'RE GETTING AN EMM RESPONSE 
00 90 AF 03 £2 § EC 599 10$:  BBSS  #EMM , pie : SIGNAL THE NEXT BYTE SHOULD BE THE 
8 F1 600 EMM_FLA 3; MESSAGE BYTE COUNT 
Fl FN 601 20$: BRB te SAIS _EMM 
0 3 08 EMM_IGNORE_DATA: 
06 89 AF 03 €5 F 604 BBtC HEWN V BYTECOUNT, - : BRANCH IF THIS IS NOT THE BYTECOUNT 
83 AF O53 6 fs 606 MOVB  R3,EMM_IGNORECNT SAVE NUMBER OF BYTES 10 IGNORE 
£6 0 FC 607 a BRB DISMIS~EMM : THAT'S IT FOR THIS BYTE 
FF7D CF 0 FE 609 | ~—+—*DECB.~—sCEMM_IGNORECNT : COUNT DOWN ONE MORE BYTE 
EO 02 610 BNEQ  DISMIS_EMM : BRANCH IF STILL MORE TO IGNORE 
00 FF77 CF 02 0304 611 BBCC §§ #EMM V7IGNOREINP, - : CLEAR THE “IGNORE EMM DATA’ FLAG 
030A 61¢ EMM FLAGS, 20$ : 
D8 030A 613 20$: BRB DISAIS EMM : THAT'S IT 
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‘ ~SBTTL LOGICAL CONSOLE INPUT INTERRUPTS 
INT_LOGINP = HANDLE LOGICAL CONSOLE INPUT INTERRUPTS 


; FUNCTIONAL DESCRIPTION: 


EMBSW_AD_ENTRY(R2) 
MOVE #1 ERBSW "HD ENTRY+1 (R2) 
ERC SRELEASERB 


DISMIS 


Set flag = reboot successful. 
Release the errorlog data. 


; ONLY ONE TYPE OF LOGICAL CONSOLE INTERRUPT-LEVEL INPUT IS CURRENTLY HANDLED: 
; AN UNSOLICITED MESSAGE SIGNALLING THAT THE CONSOLE WAS RE-BOOTED SUCCESSFULLY. 
; THE CONSOLE CAN BE Seg 1 Y THE ROUTINE CONSKEEPALIVE IF IT DETECTS THAT 
THE CONSOLE HAS DIED. CONSKEEPALIVE WILL WRITE A MESSAGE TO THE SYSTEM 
ERRORLOG NOTING THAT IT HAS ATTEMPTED TO RE-BOOT THE CONSOLE. IF THE 
REBOOT IS SUCCESSFUL, THIS ROUTINE WILL WRITE ANOTHER MESSAGE TO THE 
ERRORLOG SIGNALLING fHE SUCCESSFUL REBOOT. 
; INPUTS: 
; R3 - CONTENTS OF PRS_RXDB REGISTER 
NT_LOGINP: 
CMPB R3,@RXDBSC_LOG_REBOOT =; Console reboot message? 
BNEQ  DISMIS_LOG : Branch if not. 
MOVL #EMBSC_HD_LENGTH+1,R1 3; Allocate a header plus one byte. 
JSB G*ERLSALLOCEMB ; Allocate space in the errorlog buffer. 
BLBC RO,DISMIS LOG ; Branch if unable to allocate. 
MOVW #EMBSC_CRET 3; Set entry type = console reboot. 
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INTERFACE EP= 
eX «SBTTL START 1/0 ON CONSOLE INTERFACE 
:CONSSTARTIO = START 1/0 ON CONSOLE INTERFACE 
; FUNCTIONAL DESCRIPTION: 


; THIS ROUTINE IS ENTERED TO OUTPUT A CHARACTER TO THE CONSOLE INTERFACE. 
: THE DATA IS QUEVED AND SUBSEQUENTLY OUTPUT ON THE NEXT READY INTERRUPT. 


: A RETURN TO THE CALLER IS DONE TO ENTER A ‘WAIT FOR INTERRUPT’ STATE. 
INPUTS: 


Re = DATA TO OUTPUT 
R35 = UCB ADDRESS 


OUTPUTS: 
R3,R4,R5 ARE PRESERVED. 


ro 
ma 


-ENABLE LOCAL_BLOCK 


CONSSTARTIO:: 
BGEQ 208 sBRANCH IF SINGLE CHARACTER 
BISW2 #TTYSM_TANK BURST,- sFLAG BURST MODE ACTIVE 


UCBSW_TT_HOLD(RSS 
START_TERM_10: 
10$: MOVL 


q UCBSL_CRB(RS) ,R1 :GET CRB ADDRESS 

OVL CRBSL-INTD+VECSL_IDB(R1).R1 ;GET IDB ADDRESS 

BISB2 UCBSW-TT_UNITBITTRS),1DB$B8_TT ENABLE(R1) ;CREATE NEW XMT ENABLE MSK 

MOVZBL IDB$B-TT-ENABLE(R1),R1 ;GET ENABLE MASK FOR THIS DEVICE 

ASHL #TXS_0_TEM,R1,R1 “POSITION TO FIELD 

BISL2 #TXS"MTIE!TXS_M _WRTENA,R1 ;SET INTERRUPT ENABLE 

BISB2 #UCBSM"INT,UCBSOQ_STS(R5);FLAG INTERRUPT EXPECTED 

DSBINT #*X14 ;MAKE FOLLOWING TEST AND SET ATOMIC 
15$:  MFPR #PR$_TXCS,RO [READ TRANSMIT STATU 

BBC #TXS"V_RDY,RO,15$ ‘WAIT 'TIL WE HAVE A VALID COPY 

MTPR  —s«-R1, #PRS_TXC¢S ;ENABLE THIS DEVICE 


ENBINT 
RSB RETURN WITH INTERRUPT EXPECTED 


MOVB R3,UCB$W_TT_HOLD(RS) | ;SAVE OUTPUT CHARACTER 
BISW2 #TTY$M_TANKHOL :SIGNAL CHARACTER IN TANK 


D,- 
UCBS$W_TT_HOCD(R5S 
BRB 3GO0 ENABLE INTERRUPT 
-DISABLE LOCAL_BLOCK 


208: 


$3 
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; .SBTTL CARRIER CHANGE SENT BY CONSOLE 
: FUNCTIONAL DESCRIPTION: 


/ 
E 
3 
634 
7B $38 
78 637 ; DISPATCH TO HERE IF THE CONSOLE IS TELLING US ABOUT A CHANGE IN 
7B 98 + CARRIER STATUS 
78 34 3 
a oo 
7B? ¢ INT_CARCHANGE : 
: wm 0 7B? MOVL IDBSL_UCBLST(R4) RS :GET ADDRESS OF CONSOLE UCB 
4 26 A5 p 7 f i MOVL + UCB$L GRBCRS) .RG :GET CRB ADDRESS IN R 
53 3 FO BF 5 ASHL #-16,R3,R “POSITION CARRIER BITS FROM RXDB REG 
52 53) 1D AG gp 106 XORB3 CRBS$B_D2_CARRIER(R4),R3,R2 ;FIND CHANGED BITS 
1D AG) 653—CO0 C0 8p i MOVB R3,CRB$B-DZ_CARRIER(R4) ;SAVE STATE OF LOGICAL CARRIER 
+ £09 : PROCESS LINES WITH CARRIER CHANGE 
51 52 08 00 A 0391 711 20S: FFS #0,#8,R2,R1 :FIND A LINE 
13 36 £18 BEQL SIF EQL NO MORE 
0052 51 €1 0398 71 BBC R1,R2,30$ i CLEAR BIT 
55 2C AG DO H 714 30$:  MOVL  CRBSL_INTD+VECSL_IDB(R4).R5 ;GET IDB ADDRESS 
55 18 AS41 00 AO 715 MOVL DBSL-UCBLST(R5)CR1J,R5 :GET CORRESPONDING UCB ADDR FOR UNIT 
EA 1 0 AS 716 BEQL SBRANCH IF NO UCB 
5 10 347 717 BSBB REPORT _CARCHANGE SREPORT THE CARRIER CHANGE 
£6 11 O3A9 718 BRB 20$ [CONTINUE SCANNING 
BSH Bsns 
0054 31 O35 g 1 - BRw DISMIS :DISMISS THE INTERRUPT 
o3Ae g 5 : FUNCTIONAL DESCRIPTION: 
§ AE 725 : THIS ROUTINE REPORTS A CHANGE IN CARRIER STATUS TO THE TERMINAL 
o5N f $ + CLASS DRIVER 
6 AE , : > INPUTS: 
O3AE 730 : RS = UCB ADDRESS 
att g 13 R4 = CRB ADDRESS 
AE f : OUTPUTS: 
f 5: DATASET TRANSITION REPORTED TO CLASS DRIVER 
f $ : REGISTERS RO,R1,R2 DESTROYED, ALL OTHERS PRESERVED 
7 5 REPORT_CARCHANGE : 
2D 38 AS 02 E1 O3AE 740 BBC #DEVSV TRM.UCBSL DEVCHAR(RS) 208 - BRANCH IF NOT TERMINAL 
28 44 A5 E1 741 BBC #TTSV_RODER,UCB C_DEVDEPEND(RS),20$ ;BRANCH IF NOT MODEM 
50 1D AG 01 31 EF 148 EXTZV R1,#1 ERE B/D2_CARRIER(R4),RO ;GET CARRIER BIT FOR THIS LINE 
01 5 Q FO 74 INSV RO. #TE$V_DS CARRIER. #1 7: SET/CLEAR IN UCB 
124 ¢ 744 CBSB_TT_DS RCV(R5) 
DO ef 89 745 BISB3 #<TTSM_DS_DSRTTTSM_DS_CTS!TTSM_DS_RING>,- 
9124 5 51 146 RT,UCBSB TT _DS_RCV (RS) -SET BITS WHICH ARE ALWAYS SET 
2 0124 ¢ 9A 74 MOVZBL UCBS$B_TT_DS_RCV(R5)-7R2~ ;GET CURRENT RCV MODEM STATUS 
1 9A 148 MOVZBL BHODERSC-DATAS T,R1 :SIGNAL DATASET TRANSITION 
50 0114 65 0 74 MOVL UCBSL_TTCLASS(R5),RO GET CLASS VECTOR TABLE 


PDRV7 = VAX/VMS 11/790 CONSOLE TERMI EP=1 AX/VMS Macro V04- Page 
vou 000. CARRIER CHANGE SENT BY CONSOLE 73 SEP=1 198¢ be if 3 SYSLOA. SREJOPDRV790.MAR; 1 - 42) 
1 . Be: PUSHR = #*M<R1,R2,R3,R4> sSAVE VOLATILE REGISTERS 
oc 80 % DB JSB OCLASS_DS_TRAN(RO) ;SIGNAL DATASET TRANSITION 
1E BA 43 POPR #*MCR1LR2,R3,R4> RESTORE REGISTERS 
5 E 20$ RSB ;RETURN TO CALLER 


D9 
TER INTERRUPT SERVICE” 'S-SEP=1984 Ous1:07 ESYSLOA.SRESOPDRV790.maR;1 /°9° (fy 
~SBTTL CONSOLE TRANSMITTER INTERRUPT SERVICE 
CONSINTOUT = CONSOLE TRANSMITTER INTERRUPT SERVICE 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE IS ENTERED WHEN A CONSOLE UNIT READY INTERRUPT OCCURS. 


OPDRV7 = VAX 11 
v04- CONSO RAN 


: : THE INTERRUPT STATE OF THE UNIT IS CHECKED FOR EXPECTED INTERRUPT. 
164 : IF NO INTERRUPT IS EXPECTED, THE INTERRUPT IS DISMISSED. IF AN INTERRUPT 
765 : IS EXPECTED THEN THE DRIVER IS ENTERED. IN THE CASE OF THE CONSOLE TERMINAL, 
166 t A SPECIFIC ROUTINE IS ENTERED TO GET THE NEXT CHARACTER AVAILABLE TO OUTPUT 
767 : ON THE UNIT. 
768 ; 
168 : INPUTS 
aA : RO,R1,R2,R3,R4,R5 ARE SAVED ON THE INTERRUPT STACK. 
18 ; OO(SP) = ADDRESS OF THE IDB 
129 : OUTPUTS: 
108 : THE SAVED REGISTERS ARE RESTORED BEFORE REI. 
779 CONSINTOUT:: : 
50 9E 00 780 MOVL a SP)+,RO [GET ADDRESS OF IDB 
783 : Note that RO contains the address of the IDB throughout this routine. 
53 22 D 784 ° MFPR  #PRS$_TXCS,R3 :READ STATUS REGISTER 
53 53 F8 BF 7 785 ASHL -8, SEXTRACT ID FIELD 
53 sFFFFFFFO 8F CA 786 BICL2  #*C<*XF>,R3 :CLEAR UNINTERESTING BITS 
55 18 A043 D 78 MOVL  IDB$L_UCBLST(RO)CR3],R5 :GET ADDRESS OF UCB 
08 «1 788 BEQL DISMIS ;BRANCH IF NO UCB 
789 CASE —R3, = [DISPATCH TO PROCESS 
790 <INTOUT_TERM, INTOUT_TERM>,- 
791 YPE=8 
19¢ INT_IGNOREINP: 
793 DISAIS: : 
50 8& 7D 794 MOova ($P)+,RO TRESTORE REGISTERS 
52 «BE O77 795 MOV (SP)+,R : 
54 «BE O77 79 MOV (SP)+,R4 ; 
02 8 19 REI : 
: 199 : DEVICE IS A TERMINAL, EITHER THE CONSOLE OR THE REMOTE SERVICES PORT 
c 54 INTOUT_TERM: 
¢ 08 : CHECK FOR BURST ACTIVE ON LINE 
08 91 C $e : CMPB = #TTYSM_TANK_BURST@-8,- ;ONLY BURST ACTIVE? 
0109 ¢ i 06 UCB$W_TT HOCD+1(R5) 
4 13 BEQL § CON_BORST sYES, CONTINUE BURST 
i : LOOK FOR NEXT OUTPUT STATE IN TANK 
1 
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FFS 40.46 UCBSW_TT_HOLD+1(R5) ,R3 
CASE R3,TYPE=B,<= :DISPATCH 

CON_PREMPT ,~ ; SEND PREMPT CHARACTER 

CON"STOP, = STOP ouTP 

CON"CHAR. = *CHAR IN 

CON“BURST,- ‘BURST In’ PROGRESS 


: NO PENDING DATA = LOOK FOR NEXT CHARACTER 
1 BICB #UCBSM_TIM!UCBSM_INT,UCBSW_STS(R5) ;CLEAR TIMEOUT AND EXPECTED 
: CALL CLASS DRIVER FOR MORE OUTPUT 


JSB @UCBSL_TT_GETNXT(R5) ;GET THE NEXT CHARACTER 
CASEB UCBSB_TT_OUTYPE(RS) ,#=1,41 Bt FOR THE rit CHARACTER 


BY SETTING THE LIMIT 
408: ~WORD CON_START_BURST-40$ ;BURST SPECIFIED” 
-WORD CON RESET_IE-40$ ; NONE 


: OUTPUT A CHARACTER TO THE CONSOLE 

208: MOVZBL R3.R3 
#PRS_ 

BRE” DIgmis 

: DISABLE OUTPUT ON THIS LINE 


ENSURE ALL ZEROES 
TXDB ;OUTPUT CHARACTER 


50s: 
CON_RESET_IE: 


BBS #UCBSV_IN THEN DON'T R 


1,- :IF INT EXP ESET, 
UCB$W_STS(R5) ,DISMIS COULD HAVE BEEN SET DURING CALLBACK 
BICB2 UCBSW-TT UNI TOIT CRS) 1pe$B TT PNABLECROD” sCLEAR THIS DEVICE 
MOVZBL IDB$B-TT~ENABLE(RO),R1 ;GET ANEW ENABLE MASK BITS 
#TXS_0_TEM,R1,R1 : POSITION 
BISL2 #IXs M-IE'TXS_M_WRTENA,R1 ;SET INTERRUPT ENABLE 
1,#PRS_TXCS :TELL CONSOLE 
BRB Rigaie 
CON_START_BURST: 
eTsw #TTYSM_TANK_BURST,- ;SIGNAL BURST ACTIVE 
UCB$W_TT_HOCD(R5) 


: CONTINUE BURST OUTPUT 

CON_BURST: 
MOVZBL ayCeSL Trap ARR): .R3 ;OUTPUT NEXT BYTE 
INCL yeést . _OUTADR [UPDATE POINTER 
DECW $u"TT ~BUTLENCRSD ;UPDATE COUNT 
BNEQ NOT LAST CHARACTER 
BICW sTTYSH TANK_BURST,- TRESET BURST ACTIVE 


CBSwW_TT_HOCD(RS) 
set MIS 


o 
Sad 
@ 
ro) 
< 


BNA NWN OOD NAU EWN SO OD NAME WW 9 OO NOAU EWN OOO NAUEWWN  OOONAUIS UP 
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re al as al at al al al a A Ab A ah ah db db db ib dee de ee ee ee ee ee ee ee ae hk ele ee 


; OUTPUT SINGLE CHARACTER 
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4 CON_CHAR: 
53 j08 3 oA ‘ MOVZBL ucesy.T TT pHOeD (Rs). R3 OUTPUT CHAR IN TANK 
i 0 F AA 04 i pied Sitter’ Than HOLD = :SHOW TANK EMPTY 
108 ¢5 GBF 7 UCBSH TT_HOCD(RSS 
FF6D 31 04 74 BRW Bishi 
49 05 ; 
49 76 ; STOP THE OUTPUT 
49 7 
49 7 ton. STOP 
BA 049 7 BICB #UCBSM ef NTL UCBSM_ TIM,- 
64 AS 49 9 CBSW (R5) sRESET OUTPUT ACTIVE 
11 499 BRB CON oeeeey. IE ;DISABLE INTERRGP THIS DEVICE 

49B $3 ; SEND XON OR XOFF CHARACTER 
498 4 
498 5 ton. PREMPT: 

0100 8F AA 0498 § BICW  #TTYSM_TANK_PREMPT,- sRESET XOFF STATE 

0108 C5 49F 8 W_TT_HO 

23 O10A C5 DA O4A 8 MTPR UCBSB-TT_PREMPT(RS) ,#PRS$_TXDB ;OUTPUT THE CHARACTER 
FF58 31 OA 889 BRW DISMIS AND DISMISS THE INTERRUPT 
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4A i -SBTTL CONSOLE PORT ACTION ROUTINES 
4AA ; CONSXOFF = SEND XOFF 
4AA 894 : CONSXON - SEND XON 
4AA 895 : CONSSTOP = STOP OUTPUT 
GAA 96 ; CONSABORT = ABORT CURRENT OUTPUT 
4AA 3 ; CONSRESUME = RESUME STOPPED OUTPUT 
GAA $9 > FUNCTIONAL DESCRIPTION: 
GAA 1 ; THESE ROUTINES ARE USED BY THE THE TERMINAL CLASS DRIVER TO 
ev § ; CONTROL OUTPUT ON THE PORT 
GAA tf 3 INPUTS: 
GAA 06 ; RS = UCB ADDRESS 
AA 208 : OUTPUTS: 
GAA 310 ; RS = UCB ADDRESS 
GAA 312 CONSXOFF: : 
4AA 9135 CONSXON:: 
0108 CS. 0100 8F «AB «C(O4AA O98 BISW #TTYS TANK_PREMPT ,UCBSW_TT HOLD (RS) i SCHEDULE XOF F /XON 
9104 CS 53 90 0481 915 MOVB CBSB_TT-PREMPT(RS) SAVE THE CHARACTER IN THE PREMPT SLOT 
03 64 A5 01—=sEO 4B6 316 BBS fotesy. INT ,OCBSW_STS(R5).10$ HP e oGTPLT ATIVE. THEN DONE 
FE7A 30 0488 918 BSBW = START_TERM_IO sENABLE OUTPUT INTERRUPTS 
05 4BE 319 10$:  RSB 
4BF 921 CONSSTOP:: 
0200 8F AS O4BF 9 : BISW  #TTYSM_TANK STOP :SCHEDULE STOP 
0108 C5 403 9 UCB$W_TT_HOCD(R sf 
05 4cé 3 4 RSB 
407 9 § CONSABORT: : 
0108 cS) «(OB CES «(0407-9 BBCC  #TTYSV_TANK_BURST,UCB$W_TT_HOLD(RS),- ;RESET BURST ACTIVE 
0 BE ” 
4CD 930 TIMSET 1 :SET A TIMEOUT 
4E0 931 SIN CASE OUTPUT ACTIVE 
ino 
461 2 4 CONSRESUME: : 
51 DD 04E1 5 PUSHL 1 ;SAVE A REGISTER 
0108 CS 0200 BF «= AA «(KES 9 6 BICw = #TTYSM_ TANK STOP- 
4EA 9 UCB$WTT HOLD(RS “RESET STOP CONDITION 
21 9108 ¢5 08 1 O4EA 9 : BBC ATTY$v~ TANG A ORST  WcBSu. iT HOLD(R5) ,20$ BRANCH IF NO BURST IN PROGR 
120 ¢ C 4F0 9 MOVZWL UCB$W_TT_OUTLEN(R5),R1 ~;NOMBER OF BURST CHARS 
6F5 940 TIMSET R17 :SET THE TIMER 
13° «211 30F 34 BRB Bog" 
511 308 308: TIMSET 2 HAR IN TANK OR OTHER TIMEOUT 
03 64 AS 01 £0 524 944 30$: BBS #UCBSV_INT,UCBSW_STS(R5). tte sSKIP IF OUTPU 
FEOC 3 9 $e in BSBW = START_TERM_10 TENABLE OUTPUT INTERRUPT 
51 BEDO 052¢ ¢3 “ - pOPL Ss 
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- Send command to 11 SEP=19 


AX/VMS Macro V04- Page 
Sys eRe OPDRU TON. MAR: 1 . (98) 


-SBTTL CONSSENDCONSCMD = Send command to 11/790 console 


Pune tenes Descripti 


such as ‘Examine warm start 
used by code at IPL 31 to read 


on: 
ONSSENDCONSCMD is used to send a 
y leg of "Reboot 

a 


command to the ‘‘logical’’ console, 
cpu’. It is also 
a in console memory 


(as opposed to using the logical console Q10 interface). 


ust send command) 
is non-zero) 


Inputs: 
. RO = code for console command (see TXDBSC_LOG_xxx definitions) 

R2 = # of bytes of data expected (if 0 then 
RS = address of buffer to store data in (only if R 

Outputs: 
Data is stored in the buffer. 
ALL registers preserved. 

CONSSENDCONSCMD:: 

PUSHR #*M<RO,R1,R2,R3> ; Save working registers. 


ANEW" OOOnNOu 


: Enable transmit/receive on logical console Line. 


Save RXCS and TXCS on stack. 


) ; 
MFPR #PRS_RXCS,4(SP) ; Save receive status register. 
20$: MFPR #PRS_TXCS, (SP) ; Save transmit status rresster 
BBC #TXS_V_RDY, (SP) ,20$ ; Make sure we have a valid copy. 
BICL #*C<TXS_M_TEM!TXS_M_IE>,- ; Only save writable fields of TXCS 
SP) ; (transmit enable mask and int enable). 
BISL #TXS_M_WRTENA, (SP) ; Set ‘write enable’’ in saved TXCS 
30$: MTPR #TXS_M LOGCONS! TXS_M_WRTENA, - ; Disable all console Lines except 
#PRS-TRCS ; logical console; also disable interrupts. 
MTPR #0,#PRS$_RXCS ; Disable interrupts in RXCS. 
; Send command to logical console. 
40S:  MFPR  #PRS_TXCS,R1 ; Get transmit status. 
BBC #TXS_V_RDY,R1,40$ : Loge until ready bit is set. 
CMPZV  #IXSVIID,ATXS_S_ID,R1,#3 ; ID = logical console data? 
NEQ ; If not, try te 
CMPB RO,#CONSC_BOOTCPU . ; Console function = boot CPU? 
BEQL ; Branch if so. 
MTPR RO, #PRS_TXDB 3; Else send request code to console. 
; Get returned data (if any is expected). 
TSTL R 3; Any return data expected? 
BEQL 60$ 3; None; we're all through. 
508: MFPR #PRS_RXCS,R1 3; Get receiver status. 
BBC #RXS_V_DONE ,R1,50$ ; Loop until done bit is set. 
MFPR = #PRSTRROB,RI ; Get received data. 
CMPZV #RXDV_ID.ARXD_S_ID.R1,#3 ; ID = logical console data? 
BNEQ 50$ ; If not, throw data away and try again. 
3 CMPB R1,R0 3; Code = requested data? 
: BNEQ CONSOLE ERROR : No recovery from protocol error. 
MOVB R1,(R5)F ; Put data byte in user's buffer. 
SOBGTR R2,50$ ; Branch back to get another byte. 
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] 7 
i § : Restore console IPRs and registers, and return. 
2} $$ dB 2 1 9 bos: MFPR #PRS_TXCS,R1 ; Read transmit status. 
F9 51 E1 1 \¢ BBC #TXS_V_RDY,R1,60$ ; Wait for ready. 
33 BE DA OS8F 101 MTPR (SP), BPRS TXCS : Restore previous state of TXCS. 
0 BE DA QO5 1014 MTPR (SP)+,#PRS$_RXC 3; Restore previous state of RXCS. 
OF A 0595 1015 POPR #mcr6,R1,R2,R3> ; Restore registers. 
5 23 1 1 RSB 
at 
39 ! 15 : Come here to reboot CPU. 
23 50 DA 0598 1 A 50s: MTPR RO, #PRS_TXDB ; Send reboot command. 
00 0598 1022 HALT ; Halt to let reboot occur. 
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~SBTTL ‘"‘ALLOCATE'’ CONSOLE TERMINAL 


; CONSOWNCTY - "ALLOCATE’’ CONSOLE TERMINAL 
FUNCTIONAL DESCRIPTION: 


THIS ro tne SHOULD BE CALLED WHEN PERFORMING NON-INTERRUPT we 
1/0 TO THE CONSOLE TERMINAL. IT DISABLES INTERRUPTS AND DOES 
cPu~sPe ci rt IN NITIALIZATION. OF THE CONSOLE TERMINAL REGISTE My 

THE CONSOLE TERMINAL IS RESTORED TO ITS PREVIOUS STATE BY CALLING 
CONSRELEASECTY. 


$ 11/79 
E'* CONS 
C 1024 
195 
; 5 i ; 
; . % § : 
ris 0 : 
59¢ 1 : 
59¢ 1 § ; 
a : 
59C (1034 : 
Hae 
b59¢ ? : THIS ROUTINE SHOULD BE CALLED AT OR ABOVE IPL 20. 
§35¢ 1039 : ee NOTE *** = THE CALLER IS RESPONSIBLE FOR RESTORING THE STATE 
059C 1040 : OF THE CONSOLE TERMINAL STATUS REGISTERS (RXCS AND 
059C 1041 : TXCS) BY CALLING CONSRELEASECTY WITH THE VALUES 
059¢ 1048 ; RETURNED BY THIS ROUTINE. 
059C 1043; 
059C 1044 : INPUTS: 
Bist iow 
099¢ 47 : OUTPUTS: 
059¢ 1948 : RO: VALUE TO BE RESTORED TO TXCS WHEN CALLING CONSRELEASECTY 
B2o¢ 1920 3 R1: VALUE TO BE RESTORED TO RXCS WHEN CALLING CONSRELEASECTY 
059¢ 105¢ : PRS$_RXCS AND PRS$_TXCS ARE SET UP SO THAT NON-INTERRUPT 1/0 CAN BE 
959¢ 1053 : PERFORMED TO THE CONSOLE TERMINAL. 
Sage 1055 : 11/780, 11/750, AND 11/730: 
059¢ 1056 : CONSOLE INTERRUPTS ARE DISABLED 
page 1986 ; 11/790: 
059¢ 1989 : CONSOLE TRANSMIT AND RECEIVE MASKS ARE SET UP SO THAT ONLY 
059¢ 1060 ; 1/0 TO THE CONSOLE TERMINAL IS PERMITTED. INTERRUPTS ARE 
39¢ 61 ; DISABLED. 
59¢ 1 8 tONSOWNCTY:: 
32 DB 059C 1064 10S:  MFPR #PRS_TXCS,RO : GET VALUE TO BE RESTORED TO TXCS. 
F9 50 E1 O59F 1065 BBC #TXS-V RDY,RO,10$ ; WALT FOR VALID CO 
FFOOFFBF 8F CA O5A3 1 66 BICL #*C<TXS_M_TEM!TXS_M_IE>,- ONLY SAVE WRI TABLE FIELDS OF TXCS 
0 5a9 106 20 : {TRANSMIT ENABLE MASK AND INT ENABLE). 
50 00008000 8F cB O5SAA 1 68 BISL  #TXS_M_WRTENA,R SE ' WRITE ENABLE BIT FOR K. 
00018000 8F DA 0581 1 : MTPR = #TXS"M EEN RRY TXS M _WRTENA - ; ENABLE LOCAL TERM OUTPUT AND 
2 587 1070 #PRS- ABLE TRANSMIT INTERRU 
20 00010000 8F DvA 0588 1071 MTPR = #RXSTM_CONSTERM, APRS rxc§ ENABLE LOCAL TERM INPUT AND DISABLE 
DBF re a > RECEIVE INTERRUPTS” 


CONSRELEASECTY:: 
PUSHL R 
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c 25 ss .SBTTL RELEASE CONSOLE TERMINAL 
c 7 : CONSRELEASECTY = RELEASE CONSOLE TERMINAL 
3 fi : FUNCTIONAL DESCRIPTION: 
CO 1081 : THIS ROUTINE SHOULD BE CALLED TO RELEASE THE CONSOLE TERMINAL AFTER 
2 1 : : ALLOCATING IT WITH ROUTINE CONSOWNCTY. IT RESTORES THE STATE OF THE 
3 33 CONSOLE TERMINAL INTERFACE REGISTERS. 
aC 5: THIS ROUTINE SHOULD BE CALLED AT OR ABOVE IPL 20. 
af 1 $ : INPUTS: 
5¢O (1088 : RO: VALUE RETURNED BY CONSOWNCTY TO BE RESTORED TO TXCS 
3¢ ; ; Ri: VALUE RETURNED BY CONSOWNCTY TO BE RESTORED TO RXCS 
5¢O 1091 : OUTPUTS: 
5co 1 35 3 NONE. 
5¢O (1093 : 
26 1098 
52 pp 05¢0 1 3 ; REGISTER. 
5 33 DB 05¢ 109 10$:  MFPR #PRS$_TXCS,R2 : READ TRANSMIT STATUS. 
F9 5 E1 05¢5 1098 BBC #TXS"V_RDY,R2, 108 : WAIT TIL INTERFACE IS READY. 
22 50 DA 059 1099 MTPR RO, #PRS_TXCS : RESTORE TXCS TO PREVIOUS STATE. 
20 51 DA 05€C 1100 MTPR —-R1_L#PRSTRXCS + RESTORE RXCS TO PREVIOUS STATE. 
a ae O5CF 1101 : RESTORE THE REGISTER. 
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ARAC CTER FROM THE C SEP=19 SYSLOA.SRCJOPDRV790.MAR; 1 
~SBTTL CONSGETCHAR = GET A CHARACTER FROM THE CONSOLE TERMINAL 


; CONSGETCHAR = GET A CHARACTER FROM THE CONSOLE TERMINAL 
¢ FUNCTIONAL DESCRIPTION: 


THIS ROUTINE SHOULD BE CALL 


ED T these NON-INTERRUPT DRIVEN 1/0 
DIRECTLY TO THE CONSOLE TERMINA 


; INPUTS: 
; Non 


RO contains the character. 


control_s = 19 : control s (xoff) 
control_q = 17 3 control q (xon) 
ONSGETCHAR:: 
OS: ere #or$_rxcs,r0 receiver ready? 
of be #rxs_v stone r0,10$ sif clr, receiver not ready 
+ #or$_rxd b,r rose input character 
return 
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ARAC CTER TO THE CON SEP=1 SYSLOA.SRCJOPDRV7 (19) 
~SBTTL CONSPUTCHAR = PUT A CHARACTER TO THE CONSOLE TERMINAL 

CONSPUTCHAR = PUT A CHARACTER TO THE CONSOLE TERMINAL 

FUNCTIONAL DESCRIPTION: 


THIS ROUTINE SHOULD BE CALLED TO DO NON-INTERRUPT Dn. vEN 1/0 
DIRECTLY TO THE CONSOLE TERMINAL 


INPUTS: 
RO - Character to be output 


OUTPUTS: 
Character written to the console terminal. 


ee Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge 
+ 


51 ri save a register 
51 20 10$: ater iors. rxcs,ri sreceiver ready? 
1B 51 07 ~=€1 bbc orxg. -v done r1,30$ :if clr, receiver not ready 
51 st 0B mfpr he sread input character. 
13 51 £07 0 ED cmpzv #7. x4 _ eee a scontrol-s? 
11 12 bneq sif neq no 
51 $9 dB 20S: mfpr a rxcs,ri sreceiver ready? 
F9 51 , a bbe erus. -v done r1,20$ sif clr, receiver not ready 
51 54 DB mfpr aur, sread input character 
11 51 07 0 €D cmpzv . #7, x4 p+ ee a sis it a control-q? 
EF 12 bneq ino, wait for another character. 
51 §$ DB 30$: mfpr 08 txcs,rl : transmitter done? 
F9 51 ry bbc #txs_v rdy, 4 308 :if clr, transmitter not done 
23 50 DA mtpr ro, #prS_txdb curite output character 
51 8ED0 popl restore a register 
05 rs sreturn 
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OPDRV790 = VAX/VMS 11/790 CONSOLE TERMINAL DRIVER ti det PS 9 01:06:68 AX/VMS 
Psect synopsis -SEP-1984 04:11:07 (CSYSLOA.S 

bwemem een neem ewan te 

! ;_Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
‘ 8 900000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NO 
SABSS 3° 1¢ 1.) NOPIC USR CON ABS LCL NOSHR- EXE 
SYSLOA 00000610 1552.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR- EXE 

boos eereacceaaaae aoa maaneoeaa d 
H Performance indicators H 

Phase Page faults CPU Time Elapsed Time 
Initialization 30 00:00:00.0 00:00:03.38 
Command processing 114 09:00:00.43 $000; 08:03 
Pass 1 542 00:00:14.97 00:01:10.61 
Symbol table sort 0 0:00: §°38 829820818 
Pass 2 211 0:00:03.19 0:00:12.01 
Symbol table output 22 0:00:00.14 0:00:00.94 
Psect synopsis output 0:00: 8-0 Be 8 “Og 
Cross-reference output 3329: 0.0 BR? 89:99 -9 
Assembler run totals 92 0:00:21.16 00:01:38.11 


The working set Limit was 1800 pages. 

123886 bytes (242 pages) of virtual memory were used to buffer fhe intermediate code. 

Jee were 120 pages of symbol table space allocated to hold 2143 non-local and 57 Local symbols. 
1163 source Lines were read in Pass 1, "ain" 17 object records in Pass 2. 

64 pages of virtual memory were used to define 61 macros. 
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Macro library name 


SS 22SDUACE a Biz’ poset MLB; 1 8 
Hattie 2 
$555$DUA28: SYS( 1BISTARLET. ie: 2 

rete (all Libraries) 37 


2479 GETS were required to define 37 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:OPDRV790/0BJ=0BJ$:OPDRV790 MSRC$:OPDRV790/UPDATE=(ENHS : OPDRV790) +EXECML$/LIB+LIB$: 790DEF/LIB 


ae opyRv7o0.mar:1 2% c46y 


RD NOWRT NOVEC BYTE 
RD WRT NOVEC BYTE 
RD WRT NOVEC LONG 


OP! 
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